   1 .
   2 .
   3 .
   4 .
   5 .LASER BATTLE
  10 clear 
  12 BC=12;clear 
  14 T=0;P=1000;&(16)=40;E=100;H=100
  18 for A=1to 45
  20 X=rnd (160)-80;Y=rnd (88)-44
  30 box X,Y,1,1,3
  40 next A
  50 box -10,0,10,1,3
  60 box 10,0,10,1,3
  70 box 0,10,1,10,3
  80 box 0,-10,1,10,3
  81 X=rnd (30)-15;Y=rnd (30)-15
  82 &(21)=10;&(20)=15
  83 FC=5
  84 BC=10
  85 P=P-1
  86 NT=3
  87 U=rnd (200)
  88 if U<100if U>50FC=52;goto 6600
  90 Y=Y+rnd (4)-2
 100 NT=1
 110 X=X+JX(1)mul 2
 120 Y=Y+JY(1)mul 2
 121 box X,Y,3,3,3
 122 box X,Y,8,1,3
 123 box X,Y+2,1,3,3
 124 if TR(1)=1goto 1000
 125 box X,Y,3,3,3
 126 box X,Y,8,1,3
 127 box X,Y+2,1,3,3
 128 box 0,0,10,10,2
 129 FC=5;BC=10
 130 MU=100
 142 T=T-1
 143 if T<0T=0
 144 if TR(1)=1P=P-50
 146 NT=0;&(19)=0
 150 CY=-35;print "TEMP=",#1,T
 160 CY=-35;CX=10;print "P0WER=",#1,P
 170 if P<1print "P0WER FAILURE!";goto 900
 180 if T>100print "Y0U'VE JUST EXPL0DED!";goto 500
 300 goto 85
 500 print "GAME 0VER!"
 501 &(21)=0
 510 for A=1to 75
 515 box -55,-35,50,10,3
 520 next A
 530 goto 1
 600 .
 601 NT=3
 602 E=E-10
 604 &(19)=0
 605 for A=1to 15
 610 box 0,0,8,8,3
 615 BC=59;BC=10
 620 box 0,0,8,8,3
 625 MU=Y
 630 next A
 635 print 
 640 if X-1<0if X+1>0if Y-1<0if Y+1>0E=E-10;print "DIRECT ",
 641 print "HIT "
 642 for A=1to 500
 643 next A
 645 CY=32
 650 print "ENEMY ",#1,E,"%",#1," FUNTI0NAL.
 675 CY=32;print "                     "
 677 if E<0E=0
 678 if E=0goto 800
 679 T=T+10
 700 goto 81
 800 print "YOU HAVE DESTR0YED THEM!"
 810 for A=1to 50
 815 box 0,0,50,50,3
 820 next A
 830 goto 1
 900 print "P0WER FAILURE!"
 901 &(21)=0
 910 for A=1to 150
 915 box 35,-35,60,10,3
 920 next A
 930 goto 1
1000 NT=0;CY=-35;print "                          "
1001 &(19)=200;NT=1
1002 &(16)=200
1003 &(21)=152
1004 &(20)=15
1005 FC=43
1010 line 15,-44,4;line 0,0,3;line 15,-44,4;line 0,0,3
1011 MU=555
1020 line -15,-44,4;line 0,0,3;line -15,-44,4;line 0,0,3
1030 T=T+10
1040 P=P-50
1050 if X-2<0if X+2>0if Y-2<0if Y+2>0goto 600
1051 NT=0
1055 box 0,0,10,10,2
1056 &(19)=0
1060 goto 125
6600 line X,Y,4;line 0,0, 3;line X,Y,4;line 0,0,3
6601 FC=5
6609 if E=100D=rnd (3)
6611 if E<80D=rnd (5)
6612 if E<50D=rnd (7)
6613 if E<30D=rnd (10)
6620 if D#3goto 90
6621 H=H-10
6623 CY=32
6624 print "Y0U HAVE BEEN HIT!"
6625 NT=1
6630 CY=32;print "Y0U ARE ",#1,H,#1,"% ",#1,"FUNTI0NAL."
6631 CY=32
6632 print "                         "
6635 NT=0
6636 if H=0goto 7000
6645 goto 90
6656 H=H-10
7000 print "THEY HAVE DESTR0YED Y0U!"
7010 for A=1to 600
7020 next A
7030 goto 1
>:return 